home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / gfx / misc / lise20.lha / lise2.0 / mdl / src / nonsense.mdl < prev    next >
Text File  |  1993-03-31  |  2KB  |  60 lines
  1. NAME{NonSense}
  2. SIZE{480,280,5}
  3. LANGUAGE{c:csh -n}
  4. NEW_MENU{File}
  5. MENU{dont load}
  6.    {
  7.    a=$STRINGBOX
  8.    echo $a not loaded
  9.    }
  10. MENU{save nothing}{echo nothing saved}
  11. MENU{exit}{$EXIT}
  12. NEW_MENU{extras}
  13. MENU{test1}{!echo "hallo"}
  14. MENU{get fileselect}
  15.    {
  16.    a=$FILESELECT
  17.    echo you selected $a
  18.    }
  19. NEW_MENU{help}
  20. MENU{whodidit}
  21.    {
  22.    echo "This is a demo program for the menu description language mdl."
  23.    echo "mdl and this demo are written by"
  24.    echo "                                      Rainer Kowallik"
  25.    echo "Give Amiga power to UNIX and UNIX power to the Amiga"
  26.    }
  27. MENU{about mdl}
  28.    {
  29.    echo "mdl is the Menu Description Language for UNIX."
  30.    echo "This was designed to keep the programmers head free of"
  31.    echo "all the time consuming Xwindow toolkit and motif overhead,"
  32.    echo "without having users complaining that the MacIntosh and Amiga"
  33.    echo "are so much more comfortable. Of course, such approach can"
  34.    echo "not cover 100% of all cases, but you will be able to solve"
  35.    echo "about 70% of the problems with this method, leaving the"
  36.    echo "rest to the decreasing intelligence of the user."
  37.    echo "Stupidity should be punished anyway."
  38.    echo "for more information read /src/mdl/mdl.doc"
  39.    }
  40. MENU{read doc}{runback c:ed mdl.doc}
  41. NEW_MENU{.          by RAKO}
  42. TOGGLE{20,20,toggle button}{tog}
  43. PUSH{260,20,show toggle}{echo status is $tog }
  44. FILE_SELECT{15,40,file}{source}{echo you selected file: $source}
  45. SELECTION{260,40,item,nr.1,nr.2,nocheins,undmehr,noch mehr,schluss}
  46.    {destination}{echo selection is: $destination}
  47. SCALEX{20,180,x-scale,0,100}{xsc}
  48. PUSH{260,180,show x-scale}{echo x-scale = $xsc }
  49. STRING_BOX{20,220,string-box}{strbo}{echo "you typed: $strbo"}
  50. PUSH{260,220,show string}
  51.    {
  52.    a=$strbo
  53.    echo "String = $a"
  54.    }
  55. PUSH{20,260,set string}
  56.    {
  57.    a=$STRINGBOX
  58.    echo "SET strbo $a"
  59.    }
  60.